home *** CD-ROM | disk | FTP | other *** search
- /* View lha archives with EvenMore */
-
- parse arg filename
-
- if ~show('p','rexxsupport.library') then call addlib('rexxsupport.library',0,-30,0)
-
- address command 'c:lha v 'filename' >ram:lhaview'
-
- address 'EVENMORE.1'
- "OPEN ram:lhaview"
-
- delay(150)
-
- delete('ram:lhaview')
-
- exit
-